home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dba1286.arc / FLASHMSG.PRG < prev    next >
Encoding:
Text File  |  1986-11-04  |  963 b   |  53 lines
  1. ****************************
  2. * FLASHMSG.PRG
  3. * by Edward C. Knaudt, E.A.
  4. *
  5. set talk off
  6. erase
  7. clear
  8. set bell off
  9. set inte on
  10. set colon off
  11. * set flashing speed
  12. store 3 to y
  13. * store message
  14. store '  ** RED ALERT **  ' to msg
  15. store '                   ' to blk
  16. do while t
  17.   store 1 to x
  18.   store 3 to ww
  19.   store 4 to w
  20.   store 6 to z
  21.   * set up loop
  22.   do while x < 25
  23.     if x=ww
  24.       @ 6,33 say blk
  25.       store ww+y to ww
  26.     endif
  27.     if x=z
  28.       @ 6,33 get msg
  29.       clear gets
  30.       * --- bell is optional
  31. * @ 6,33 say chr(7)
  32.       store z+y to z
  33.     endif
  34.     if x=w
  35.       @ 6,33 say msg
  36.       store w+y to w
  37.     endif
  38.     store x+1 to x
  39.   enddo
  40.   * this part of the program is for testing purposes only
  41.   store ' ' to answ
  42.   @ 20,10 say 'DO YOU WANT TO CONTINUE?' GET ANSW PICT '!'
  43.   READ
  44.   if answ='Y'
  45.     @ 22,10 say ' CHANGE RATE TO '
  46.     @ 22,26 get y
  47.     read
  48.     loop
  49.   else
  50.     return
  51.   endif
  52. enddo
  53.